home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Mania 1
/
MacMania 1.toast
/
Educational
/
Sciences
/
Sol's Neighbors
/
background_2171.txt
< prev
next >
Wrap
Text File
|
1988-12-15
|
10KB
|
435 lines
-- background: 2171 from stack: in
-- bmap block id: 24729
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on openStack
hide message box
show menuBar
pass openStack
end openStack
-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=228 top=298 right=321 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
go to prev card
end mouseUp
-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=256 top=298 right=321 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
go to next card
end mouseUp
-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=15 top=299 right=321 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GoHome
----- HyperTalk script -----
on mouseUp
go home
end mouseUp
-- part 17 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=24 right=72 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name: Name
-- part 18 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=75 top=75 right=92 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Alpha
-- part 19 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=75 top=95 right=112 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delta
-- part 20 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=75 top=115 right=132 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Parallax
-- part 21 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=76 top=135 right=152 bottom=141
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DistLy
-- part 22 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=75 top=155 right=172 bottom=140
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DistPs
-- part 23 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=101 top=177 right=194 bottom=155
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SpectClass
-- part 24 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=101 top=198 right=215 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PropMotion
-- part 25 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=101 top=220 right=237 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: VisualMag
-- part 26 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=37 right=54 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Luminosity
-- part 27 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=57 right=74 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SurfTemp
-- part 28 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=77 right=94 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Radius
-- part 29 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=98 right=115 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mass
-- part 30 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=294 top=118 right=135 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Density
-- part 31 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=462 top=299 right=321 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 29019 / 29019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GoFirst
----- HyperTalk script -----
on mouseUp
go first
end mouseUp
-- part 32 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=325 top=138 right=155 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ERadius
-- part 33 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=325 top=158 right=175 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: EPeriod
-- part 34 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=16 top=238 right=300 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Comments
-- part 36 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=314 top=301 right=320 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Plot Location
----- HyperTalk script -----
on mouseUp
global b,d,ho,vo,seeCard
put 1 into seeCard
push card
put 256 into ho -- horizontal origin
put 150 into vo -- vertical origin
put 45 into a -- radius parsecs to pixels
put 1/2 into b -- y/x aspect ratio
put 0.0174533 into c -- degrees to radians
put 400 into d -- pixel distance from eye to origin
put 4.90 * a into e -- frame size
put field DistPs * a into r
put field Name into n
put c * ((word 1 of field Alpha * 15) + (word 2 of field Alpha / 60)) into ph -- azimuthal angle in radians
put c * (value("0"&word 1 of field Delta) + (word 2 of field Delta / 60)) into th -- equitorial angle in radians
go to card PlotCard
put n into card field Name
put (r*sin(ph)*cos(th)) into x
put (-r*cos(ph)*cos(th)) into y
put (r*sin(th)) into z
perspective 0,0,0,x,y,0,0,0
perspective x,y,0,x,y,z,0,0
perspective 0,0,0,x,y,z,1,1
choose browse tool
end mouseUp
on perspective x1,y1,z1,x2,y2,z2,li,ci
global b,d,ho,vo
choose line tool
set the pattern to 40 -- checkerboard
set the centered to false -- don't draw centered
put (d/(d+y1)) into p1
put round(ho+p1*x1) into h1
put round(vo-p1*(b*y1+z1)) into v1
put (d/(d+y2)) into p2
put round(ho+p2*x2) into h2
put round(vo-p2*(b*y2+z2)) into v2
if li = 0 then
drag from h1,v1 to h2,v2 -- solid line
else
drag from h1,v1 to h2,v2 with optionKey -- dotted line
end if
if ci = 1 then -- draw circle at end of line
choose oval tool
set the pattern to 12 -- black
set the centered to true -- draw centered
drag from h2,v2 to h2 + 3,v2 + 3
end if
end perspective
-- part 38 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=68 top=301 right=320 bottom=210
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Distance from 1 ...
----- HyperTalk script -----
on mouseUp
global x1,y1,z1
put 0.0174533 into c -- degrees to radians
get the short name of me
if it = "Distance from 1 ..." then
put field DistLY into r
put c * ((word 1 of field Alpha * 15) + (word 2 of field Alpha / 60)) into ph -- azimuthal angle in radians
put c * (value("0"&word 1 of field Delta) + (word 2 of field Delta / 60)) into th -- equitorial angle in radians
put (r*cos(ph)*cos(th)) into x1
put (r*sin(ph)*cos(th)) into y1
put (r*sin(th)) into z1
set the name of me to "... to 2 ="
end if
if it = "... to 2 =" then
put field DistLY into r
put c * ((word 1 of field Alpha * 15) + (word 2 of field Alpha / 60)) into ph -- azimuthal angle in radians
put c * (value("0"&word 1 of field Delta) + (word 2 of field Delta / 60)) into th -- equitorial angle in radians
put (r*cos(ph)*cos(th)) into x2
put (r*sin(ph)*cos(th)) into y2
put (r*sin(th)) into z2
set the numberFormat to "0.0##"
put sqrt((x1-x2)^2+(y1-y2)^2+(z1-z2)^2) into d
put "Distance =" && d && "light-years =" && (.3065948*d) && "parsecs =" && (63240*d) && "A.U." into message box
set the name of me to "Distance from 1 ..."
end if
end mouseUp